home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / ragtagpc.arc / RAGTAG.ASP < prev    next >
Encoding:
Text File  |  1990-04-26  |  2.1 KB  |  49 lines
  1. ; RagTag, version 0.03
  2. ;
  3. ; ProComm Plus script for adding taglines to messages written online,
  4. ; using the John Hancock (JH) program, version 2.
  5. ;
  6. ; Written by Maurice Crouse, 29 March 1990.
  7. ; Revision 0.02 written 2 April 1990.
  8. ; Revision 0.03 written 12 April 1990.
  9. ; ProComm Plus adaptation written 24 April 1990.
  10. ;
  11. ; See RAGTAGPC.DOC file for documentation on how to use this script.
  12.  
  13.  
  14. assign s0 " * RagTag 0.03 *  "      ;logo
  15. assign s1 "---"                     ;"tear" line
  16. assign s2 "^M"                      ;equate for carriage return
  17. assign s3 " "                       ;equate for space character
  18. assign s4 "c:\qmail"                ;put your JH directory here
  19. assign s5 "c:\pro"                  ;put your PCPlus directory here
  20. chdir s4                            ;change to JH directory
  21. dos "if exist jh?.rep del jh?.rep"  ;delete any old .REP files
  22. run "jh"                            ;run JH
  23. if failure                          ;if it can't be run,
  24.   message "Can't run JH."           ;admit it,
  25.   goto got_error                    ;and quit.
  26. endif
  27. dos "if exist jh?.rep ren jh?.rep jhx.rep"  ;rename .REP file
  28. fopeni "jhx.rep" text                       ;open .REP file
  29. if failure
  30.   message "Can't find the tagline file."    ;if it can't be opened,
  31.   goto got_error                            ;admit it.
  32. endif             ;if we get this far, no errors have been made
  33. fgets s6                             ;copy tagline into variable
  34. fclosei                              ;close .REP file
  35. chdir s5                             ;change back to PCP directory
  36. transmit s3                          ;create a blank line
  37. transmit s2
  38. transmit s1                          ;send the "tear" line
  39. transmit s2
  40. transmit s0                          ;send the logo,
  41. transmit s6                          ;and send the tagline
  42. transmit s2
  43. exit
  44. got_error:        ;if we end up here, errors have been made
  45. fclosei                                    ;close .REP file
  46. message "Sorry, can't add the tagline."    ;admit failure
  47. chdir s5                              ;change back to PCP directory
  48. exit
  49.